home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / Information / 64ALIVE2B.SFX / 81 io switch (.txt) next >
Encoding:
Commodore BASIC  |  1990-02-12  |  606 b   |  18 lines
  1. 1 REM:PROGRAM BY JACK VANDER WHITE BASEDON A ROUTINE BY M.GARMSZEGHY PUBLISHED
  2. 2 REM:IN TRANSACTOR MAGAZINE 12/88.
  3. 3 PRINTCHR$(147):IF PEEK(231)=79 THEN POKE 230,21:POKE 231,60
  4. 5 A$="---------------------------------------"
  5. 10 PRINT:PRINT A$
  6. 20 PRINT"THIS DISABLES OR ENABLES THE IO RESET"
  7. 30 PRINT"ON A PARTITIONED 1581. DO NOT USE"
  8. 40 PRINT"THIS ON ANY OTHER DISK DRIVE."
  9. 50 PRINT A$:INPUT"DEVICE # OF 1581";DV
  10. 60 PRINT"WHAT DO YOU WANT TO DO ?"
  11. 70 PRINT"          1[146] DISABLE RESET"
  12. 80 PRINT"          2[146] ENABLE RESET":INPUT R$
  13. 90 ON VAL(R$)GOTO 100,200
  14. 100 OPEN15,DV,15:PRINT#15,"M-W";CHR$(152);CHR$(1);CHR$(2);CHR$(123);CHR$(128)
  15. 110 CLOSE 15:NEW
  16. 200 OPEN15,DV,15:PRINT#15,"U:";
  17. 210 CLOSE 15:NEW
  18.